Top 10k strings from Video Basic - Issue 13 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 A$="PON EN MARCHA LA GRABADORA":
6 "4";"ESTA BIEN ESCRITO ? (S/N)";
6 "23606",z:
6 "10",z;" PARA LA GRABADORA ":
5 t$=" PULSA UNA TECLA PARA CONTINUAR "
5 U;" ";N$;" "
5 ***********************
5 "9",N;" ~|";
5 "8",N;A$(N-2
5 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
5 "10",N;" \]"
5 PASO A LA PARTE";
5 *
4 T$=" ELIGE, "+N$+":":
4 "6";" SIGUIENTE"
4 "28"-J/A,ER+J/A*.7
4 "126-XL/2",
4 VUELTA AL PRINCIPIO";
3 t$(2)-48":
3 "10-a/2",U;
3
2 t$(3)-48":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 Via Indipendenza 88
2 LETREROS ENTRANTES
2 LEE LOS UDG
2 ;"VIDEOBASIC":
2 ;"PRECINTRO":
2 ;"GOSUBINTR1":
2 ,XX;" ";
2 "i*2+1",j;
2 "BIEN, "+N$+"
2 "7";" ":
2 "6";" ";
2 "26";" ":
2 "23617",Z:
2 "23296"+N,
2 "(21-YP)*8-2":
2 SOFTIDEA (Como)
2 REPETIR";
2 * * * *
2 Tel.031-240.959
2 PARA LA GRABADORA
2
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y(n)=y(n+1
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 u;"S=ELIGE L=LADO R1:100 R2:200"
1 u;"EXACTO !":
1 u;"1E+";I;
1 u;"1.5E+3":
1 u;"1.5 * 10^3;"
1 u;" VALOR NO ACEPTABLE ",:
1 u;" ";
1 u;" ";
1 u;" ":
1 t$="Para terminar se vuelve a ladireccion tomada del STACK:":
1 t$="NATURALMENTE ESTA FORMA SEACEPTA TAMBIEN EN <INPUT>. PORLO TANTO ES DEL TODO INDIFE-RENTE INDICAR <1E2>, O BIEN<1e2> EN LUGAR DE 100.":
1 t$="La direccion siguiente a GOSUBesta colocada en el STACK:":
1 t$="He aqui como se memorizan nu-meros en el <STACK>...":
1 t$="ES DECIR: 1.5*1000 ES IGUAL A<1500>.":
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(3)-48",
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="de un cuadrado ":
1 p$="a la ROM (Interface 1) ":
1 p$="Visita Medica ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="PULSA UNA TECLA PARA CONTINUAR"
1 p$="Microdrive y Disk Drive ":
1 p$="Los Archivos ":
1 p$="Las Instrucciones relativas":
1 p$="Juego de adivinanzas sobre ":
1 p$="Invenciones Graficas ":
1 p$="GOSUB * RETURN ":
1 p$="En el proximo numero... ":
1 p$="El Plotter ":
1 p$="Dibujos Animados ":
1 p$="Biorritmos ":
1 p$="Area y Perimetro ":
1 p$="Archivo ":
1 n;" ":
1 copy=23760
1 b$=b$+(w$(j)
1 attr=23813
1 a;" ":
1 a$="LA PROGRAMACION":
1 a$=" ":
1 ZONA DE MEMORIA DESTINADA ALOS <GOSUB> GOSUB STACK
1 Z,Z;"INTRODUCE:
1 YY,XX;" ";
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$="*PULSA UNA TECLA PARA CONTINUAR *"
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X<21)+(30-X)*(X>20)"):
1 X,Y;T$(N):
1 W$="PULSA R .... REPETIR LA LECCION C .... CONTINUAR":
1 W$="PUESTO QUE ATRAVES DE LA INS-TRUCCION <OUT> ES POSIBLE INDI-CARLE AL PLOTTER LAS COORDENADASDE CUALQUIER PUNTO, SE PUEDETRAZAR TODO TIPO DE CURVAS.":
1 W$="OBSERVA EL SIGUIENTE EJEMPLO.":
1 W$="MAS EXACTAMENTE, UN PLOTTER ESTACONSTITUIDO POR UNA BASE EN LAQUE SE APOYA EL PAPEL, Y UNO OMAS PLUMINES QUE SE DESPLAZANSOBRE DOS BRAZOS:UNO VERTICAL YOTRO HORIZONTAL.":
1 W$="ESTE ES UN EJEMPLO DE CARACTERESESCRITOS CON UN PLOTTER.":
1 W$="ESTE ES CAPAZ DE TRAZAR RECTAS,CIRCULOS Y PUNTOS MEDIANTE UNPLUMIN MONTADO SOBRE DOS BRAZOSMECANICOS.":
1 W$="ESTA LECCION ESTA DEDICADA AL<PLOTTER>.":
1 W$="EL PLOTTER TAMBIEN PUEDE ESCRI-BIR COMO UNA IMPRESORA, CON LADIFERENCIA DE QUE CADA CARACTERES DIBUJADO MEDIANTE SEGMENTOS.":
1 W$="EL PLOTTER REPRESENTA UN PASOADELANTE CON REPECTO A LA IMPRE-SORA, EN LA REPRESENTACION GRA-FICA DE LAS INFORMACIONES SOBREPAPEL.":
1 W$="EL BRAZO HORIZONTAL ES MENOR QUEEL VERTICAL, Y ES EL QUE SOSTIE-NE LA PLUMA.":
1 W$="CUANDO EL ORDENADOR TIENE QUEESCRIBIR, HACE QUE EL PLUMIN BA-JE HACIA EL PAPEL.":
1 VISUALIZACION BLOQUE
1 VIDEOTEST
1 VIDEONEXT
1 VIDEOLIST
1 VIDEOHARD
1 VIDEOBREAK&
1 VIDEOBREAK NUMERO 13
1 VIDEOBASIC N.13
1 U;"OTRA VEZ..":
1 U;"OTRA VEZ !":
1 U;"HE AQUI ALGUNOS EJEMPLOS: ":
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ERROR !":
1 U;" ";
1 U+U,XP;A$;
1 TRANSFORMAREMOS EL ANALISISANTERIOR EN UN DIAGRAMA DEFLUJO, Y DESPUES A INSTRUCCIO-NES <BASIC>."
1 TIPO DE ORDENACION POR PAREJAS SHELL
1 TABLA TEST
1 TAB.LENG.4
1 TAB.LENG.2
1 TAB.LENG.1'
1 T$=T$+"(BYTE DE NIVEL BAJO QUE PRECE-DE AL DE NIVEL ALTO).":
1 T$="TODOS LOS NUMEROS SE REPRESEN-TAN EN MEMORIA POR MEDIO DE 5BYTES; SI SE TRATARA DE VALO-RES ENTEROS COMPRENDIDOS ENTRE-65535 Y +65535, SU CODIFICA-CION SERA LA ESTANDAR <Z80>"
1 T$="Se realiza por tanto un salto a la rutina indicada:":
1 T$="RECURRIMOS ENTONCES A UNA ES-CRITURA ALTERNATIVA: LA NOTA-CION CIENTIFICA O LA COMA FLO-TANTE (FLOATING POINT). ESTA TOMA LA SIGUIENTE FORMA:":
1 T$="QUIZAS SEA MEJOR QUE VUELVAS ALEER EL PROGRAMA Y LO INTENTESDE NUEVO.":
1 T$="QUEDA COMPREDIDA ENTRE:":
1 T$="PUESTO QUE DERIVA DE LA SUMADE 1/2 Y DE 1/4.":
1 T$="PERO PARA REPRESENTAR NUMEROSDE ESTE TIPO LA FORMULA EM-PLEADA HASTA AHORA SE HACEINADECUADA: CUANDO LAS CIFRASSON MUCHAS EL ESPACIO OCUPADOEN PANTALLA AUMENTA EXAGERADA-MENTE, Y LA LECTURA DE LOS VA-LORES SE HACE DIFICULTOSA.":
1 T$="PERO ESTA VEZ NO UTILIZAMOSLAS POTENCIAS DE <2>, SINO SUSRECIPROCOS.:":
1 T$="OK, "+N$+" ?":
1 T$="LOS NUMEROS QUE NO SE PUEDENREPRESENTAR DE ESTA FORMA SEESCRIBEN EN EXPONENCIAL, PERONO EN BASE DECIMAL SINO BINA-RIA.":
1 T$="LLEGADOS AQUI PUEDEN RESULTARUTILES ALGUNAS CONSIDERACIONESSOBRE LA PRECISION DE LOS RE-SULTADOS ALCANZABLES CON ELSPECTRUM.":
1 T$="LA CIFRA DECIMAL <0.75> SERAREPRESENTADA POR:":
1 T$="LA GAMA DE NUMEROS QUE ELSPECTRUM ES CAPAZ DE MANEJARES MUCHO MAS EXTENSA DE LA QUEHEMOS VISTO HASTA AHORA.":
1 T$="INTENTA ESCRIBIR LAS INSTRUC-CIONES QUE TE PIDA. ESTOY SEGURO DE QUE NO ENCON-TRARAS GRANDES DIFICULTADES.":
1 T$="He aqui como funciona <GOSUB> y <RETURN>...":
1 T$="EN LA PRACTICA, PARA OBTENEREL NUMERO EN SU FORMA ORDINA-RIA, TIENES QUE DESPLAZAR A LADERECHA (<E> POSITIVO), O A LAIZQUIERDA (<E> NEGATIVO), ELPUNTO DECIMAL PONIENDO TANTOSCEROS COMO EL NUMERO QUE SIGUEA <E>.":
1 T$="EN LA FASE DE IMPRESION ELSPECTRUM PASA AUTOMATICAMENTEAL MODO DE COMA FLOTANTE CUAN-DO EL NUMERO SUPERA LAS OCHOCIFRAS.":
1 T$="ELIGE, "+N$+":":
1 T$="EL SIGNO SE CODIFICA CON <0>PARA SIGNIFICAR <+>, Y <1> PA-RA SIGNIFICAR <->.":
1 T$="EL EXPONENTE SE OBTIENE SUMAN-DO <128> AL NUMERO DE MULTI-PLICACIONES (O DIVISIONES) POR<2>, NECESARIO PARA REDUCIR ELNUMERO ORIGINAL A UN VALOR IN-CLUIDO ENTRE 0.5 (COMPRENDIDO)Y 1 (EXCLUIDO).":
1 T$="EL BYTE <SIGNO> SE ESTABLECEEN 0 PARA <+> Y EN 255 PARA<->.":
1 T$="DE FORMA ANALOGA A LA CONVER-SION DECIMAL/BINARIA, SE OB-TIENEN LOS 31 BITS (EL PRIMEROSIRVE PARA EL SIGNO) A INSER-TAR EN LOS 4 BYTES DENOMINADOS<MANTISA>.":
1 T$="BIEN, "+N$+"
1 T$="AHORA, "+N$+"":
1 T$="1100000......":
1 T$="1/2 1/4 1/8 1/16 1/32...":
1 T$="...y como se recuperan...":
1 T$=" ELIGE, "+n$+":":
1 SOFTIDEA (Como)
1 SCROLL=23828
1 S*100","04:REPETIR ","#813","2:40
1 RUTINA MAQUINA DE ESCRIBIR
1 ROTULOS ROTATORIOS
1 REGISTRO DEL NOMBRE
1 PROGRAMA
1 PORTADA T
1 PERMITE TRAZAR DIBUJOS SOBREEL PAPEL PLOTTER
1 PARTE DE UN PROGRAMA LLAMADODESDE GOSUB SUBRUTINA
1 PANTALLA
1 P$="VIDEONEXT":
1 P$="VIDEOLIST":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$="Precision Numerica ":
1 P$="PON EN MARCHA LA GRABADORA"
1 P$="PARA":
1 P$="PARA LA GRABADORA"
1 P$="GRABADORA":
1 P$="CONECTA LA GRABADORA"
1 P$=" *PULSA UNA TECLA Y PON EN MARCHA LA GRABADORA"
1 P$=" PULSA UNA TECLA"
1 P$=" en el numero 14 ":
1 OMBRECILLO
1 O,i;A$(i-2
1 NOMBRE GENERAL DE UN PROGRAMADE ORDENACION SORT
1 N$=N$+" ":
1 MUEVE TANTO LA HOJA COMO ELPLUMIN: PLOTTER DE... TAMBOR
1 M-15345-1985
1 LETREROS ROTATORIOS
1 LENG. UNO
1 LENG. TRES
1 LENG. DOS T
1 LENG. 4
1 LA COMBINACION <GOSUB-RETURN>SIRVE PARA DEFINIR BLOQUES DEINSTRUCCIONES (RUTINAS-PROGRA-MAS AUTONOMOS), QUE SE PUEDENLLAMAR CADA VEZ QUE SEA UTIL ONECESARIO.% %LAS RAZONES PARA EMPLEAR ESTATECNICA EN LUGAR DE LA PROGRA-MACION SECUENCIAL, SON FUNDA-MENTALMENTE DOS:UNA PURAMENTEESTETICA, AL PERMITIR LA DES-COMPOSICION DE UN PROGRAMA ENBLOQUES ELEMENTALES, MEJORANDOPOR TANTO SU LEGIBILIDAD Y ES-QUEMATIZACION. OTRA POR LA OPTIMIZACION,PUES-TO QUE LA UNION <GOSUB-RETURN>EVITA LA DUPLICACION DE GRUPOSDE INSTRUCCIONES SIMILARES,CON AHORRO EVIDENTE DE MEMO-RIA.% %LA RUTINA SE PUEDE CONSIDERARCOMO UNA NUEVA INSTRUCCION DE-FINIBLE POR EL PROGRAMA, Y SINLIMITES EN SU COMPLEJIDAD. POR EJEMPLO, SUPONGAMOS QUEDESEAMOS ENVIAR UN MENSAJE DEERROR EN EL CASO DE QUE EL DA-TO INDICADO NO SEA VALIDO.% %EN LUGAR DE REPETIR VARIAS VE-CES LAS INSTRUCCIONES QUE DE-TECTAN EL ERROR, PODEMOS ES-CRIBIR UNA RUTINA COMPUESTAEXACTAMENTE CON LAS MISMASIN
1 LA INSTRUCCION <GOSUB VALH$*P> ES CORRECTA (SI/NO)? SI
1 L*4","2B210
1 JUEGO
1 INSTRUCCION PARA LLAMAR A UNARUTINA GOSUB
1 INSTRUCCION QUE PERMITE LAVUELTA DESDE UNA SUBRUTINA RETURN
1 INGELEK JAKSON
1 HOMBRECILLO
1 HAS ESCRITO UN PROGRAMA QUEHACE USO DE UNA TECNICA FUNDA-MENTAL: LA <RUTINA>."
1 G,W;P$(G);P$(G)
1 ES FACIL INTUIR QUE CON CINCOBYTES NO ES POSIBLE REPRESEN-TAR CON ABSOLUTA PRECISION NU-MEROS COMPUESTOS POR 20 O 30CIFRAS, COMO LA NOTACION ENCOMA FLOTANTE NECESITA. DE HECHO LOS CALCULOS SE EFEC-TUAN SOBRE APROXIMADAMENTE 9CIFRAS SIGNIFICATIVAS; LAS QUEEXCEDAN SERAN PERDIDAS Y SUS-TITUIDAS POR CEROS.% %TAMBIEN EXISTE LA POSIBILIDADDE QUE UN NUMERO DECIMAL ALCONVERTIRLO EN LA FORMA QUEHEMOS VISTO, DE ORIGEN A VALO-RES PERIODICOS, EN ESTE CASOEL NUMERO MEMORIZADO NO SERAIDENTICO AL ASIGNADO. OTRO MOTIVO DE IMPRECISION ESDEBIDO AL HECHO DE QUE LASFUNCIONES MATEMATICAS DEL TIPO<SQR>, <^>, ETC., SE CALCULANMEDIANTE DESARROLLOS EN SERIEQUE ESTANDO FORMADOS POR INFI-NITOS TERMINOS, NO PUEDEN DARRESULTADOS MATEMATICOS EXAC-TOS.% %TODO ESTO PUEDE LLEVAR A VECESA ERRORES DE EJECUCION MUY DI-FICILES DE IDENTIFICAR:& &10 LET A=SQR 100 20 PRINT A 30 IF A=10 THEN STOP& &TE PARECERA RARO PERO AUNQUELA
1 EJERCICIOS
1 COPYRIGHT BY SOFTIDEA
1 COMO SE DENOMINA A LA ORDENA-CION POR INTERCAMBIOS BUBBLE
1 COMO HABRAS PODIDO COMPROBAREL STACK PERMITE ESCRIBIR RU-TINAS QUE LLAMEN A OTRAS (ANI-DADAS), O A SI MISMAS (RECUR-SIVAS); A VECES PUEDE RESULTARUTIL INSERTAR VARIOS <RETURN>,O MAS DE UN PUNTO DE ENTRADA,CONDICIONANDO ASI LA EJECUCIONDE DETERMINADAS FUNCIONES UOTRAS ACCIONES.# #MUCHAS VECES SERA NECESARIOINTRODUCIR Y DESPUES SACAR LOSDATOS DE LOS CAMPOS UTILIZADOSPOR LA RUTINA.% %POR EJEMPLO, SUPONIENDO QUE LARUTINA QUE INSERTA LOS PUNTOSSEPARADORES DE LOS MILLARESTENGA COMO <INPUT> A LA VARIA-BLE <A>, Y COMO <OUTPUT> A<W$>, PODRIAMOS PREPARAR A<GOSUB> DE ESTA MANERA:& &10 INPUT N 20 LET A=N: GOSUB 100:PRINT Z$30 .... 100 REM RUTINA <PUNTOS> 110 LET Z$=STR$ A 120 LET Z$=... 130 FOR I=... 140 RETURN% %HABRAS OBSERVADO LA IMPORTAN-CIA Y UTILIDAD DE ESTA RUTINA;EN EFECTO ESTA TECNICA CONSTI-TUYE LA BASE DE LA PROGRAMA-CI
1 CC-AA,DD-BB,EE:
1 CAR TEST
1 CAR PROG.
1 CAR NEXT
1 CAR LIST
1 CAR LENG.4
1 CAR LENG.3
1 CAR LENG.2
1 CAR LENG.1
1 CAR JUEGO
1 CAR HARD
1 CAR EJER.
1 CAR BREAK
1 B$="------------"
1 AREA""'""2=PER.""","045INT. S,L","#813","2520
1 APRENDERAS A GENERAR Y USAR UN<MENU>, ES DECIR, UNA LISTA DEOPCIONES.",""
1 AHORA OBSERVEMOS EL COMPORTA-MIENTO REAL DEL PROGRAMA RE-CIENTE ESCRITO.":
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA EN BASE AL DIAGRAMA DEFLUJO.
1 ACUERDATE DE DAR LA DIRECCIONEXACTA A LA RUTINA."
1 AA,BB,CC,DD,EE:
1 A*1500","SI <A> PUEDE CONTENER","<1> O <2>, DIRECCIONA LA RUTI-","NA A LAS LINEAS 1500 Y 3000",""
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="LOS NUMEROS Y EL SPECTRUM"
1 A$="LOS NUMEROS Y EL <SPECTRUM>":
1 A$=" GOSUB - RETURN":
1 A$=" GOSUB * RETURN":
1 A$=" COMA FLOTANTE - RUTINA":
1 ;N$;" ? (S/N)"
1 ;"y quita la alimentacion a tu";
1 ;"ejemplos y ejercicios";
1 ;"__________"
1 ;"Z ...COPIA"
1 ;"Y PULSA <ENTER>":
1 ;"VIDEOBASIC"
1 ;"TU PUNTUACION ES ";s;" SOBRE 20."
1 ;"TEN RESPETO Y ESCRIBE BIEN ! ":
1 ;"SPECTRUM. Hasta pronto,";
1 ;"R .....RUN"
1 ;"QUIERES VOLVER A EMPEZAR ?"
1 ;"PREGUNTA N. ";w
1 ;"PRECINTRO"
1 ;"PARA MEJORAR LEE DE NUEVO";
1 ;"OTRA VEZ"
1 ;"NO TE PUEDO AYUDAR":
1 ;"Muy bien, enhorabuena!"
1 ;"MUY BIEN ";n$;
1 ;"M ...PAUSA"
1 ;"La respuesta correcta es:";
1 ;"LA REPUESTA ES MUY CORTA";
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"HASTA PRONTO";
1 ;"Guarda la cinnta en su caja";
1 ;"GOSUBINTR1"
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN EL TECLADO";
1 ;"E ..SALIDA"
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" PLOTTER "
1 ;" SIGUIENTE"
1 ;" PULSA: "
1 ;" ESTA BIEN ESCRITO, ";
1 ;" PARA LA GRABADORA ":
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ":
1 ;" ";
1 ;" ":
1 ;" "
1 ;" ";
1 ;" ":
1 ;" ";
1 ;" ";
1 ;" ":
1 5TRADUCCION
1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?",""
1 4 RUTINA N. 2 ","04AIMPRIME ","04B PERIM. ","#820","2A200
1 4 RUTINA N. 1 "
1 23688/2-U"
1 23688+x)>31"
1 22 - FASE DE CALCULO","COMO OBTENDREMOS LOS RESULTA-DOS ?",""
1 1200","SI <A> CONTIENE <1>","EJECUTA LA RUTINA ESCRITA","EN LA LINEA <1200>",""
1 11 - FASE DE INPUT","CUALES SON LOS ELEMENTOS NECE-SARIOS PARA NUESTRO PROBLEMA ?",""
1 1 PROGR.PRINC. ","0421=AREA ","0432=PER. ","#820","2210
1 000000000000000000000000000000000000000000000000000000000000000000000000001111111111111021100000000000000211111111111112211000000000000002222222222222222110000000000000022222222222222221100000000000000000000000000000000000000666666666600000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888t
1 ...................................
1 -J/A,ER+J/A*.7
1 ,XX;" ":
1 ,O;"PARTE SIGUIENTE";
1 ,,,,,,,,,,,,,,,,,,,,,,,,,,,
1 ,""L "";L"
1 +H-XS)/(21
1 **AYUDA II INTENTO**
1 ***respuesta flash***
1 ***puntuacion***
1 ***pulsa tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 ***********************
1 * Lado <L> del cuadrado a cal-cular.",""
1 * Eleccion de <S> (1/2) comocontestacion al menu);
1 ));q$(q,65
1 '''''" 0.000...(37 ceros)..0000000001"'''" ...y..."'''" 10000...(38 ceros)..0000000000."
1 '''"ENTONCES HASTA PRONTO !":
1 ''"YO NO ESTARIA TAN SEGURO, CONLOS TIEMPOS QUE CORREN ... "
1 ''"Y A TU EDAD NO HAS ENCONTRADOTODAVIA CON QUIEN JUGAR A LOSMEDICOS ? "
1 ''"VAMOS A VER, CUANTO PESAS ? ":
1 ''"TIENES SUERTE DE QUE ESTE JUEGO NO ESTE PROHIBIDO PARA MENORES "
1 ''"TE PUEDO PROPONER PARA DOBLE DEGHANDI !"
1 ''"SI FUERAS UNA CHULETA VALDRIASUN DINERAL "
1 ''"QUE EDAD TIENES ? "
1 ''"PERFECTO !"
1 ''"PARA LOS HONORARIOS ....."
1 ''"NO ME MIENTAS Y DIME SI ERESHOMBRE O MUJER ":
1 ''"ES UN NOMBRE ORIGINAL, VERDAD?":
1 ''"ENHORABUENA ! ":
1 ''"CUAL ES TU PROFESION ?":
1 ''"10 INPUT A"''"20 LET C=3*B+1"''"30 IF X$=""T"" THEN..."''"40 GOSUB 100"''"50 PRINT A-B"
1 '"TIENES UN NOMBRE BONITO !"
1 '"COMO TE SIENTES AL LEVANTARTE ?"'"1 ... EN FORMA "'"2 ... HECHO POLVO"'"3 ... HAMBRIENTO"'"4 ... MEDIO MUERTO":
1 ' " que significa:";
1 "xg+xs/2",yg+ys*
1 "YA NO FUNCIONAS ...","TE VAS A QUEDAR SIN PELO","TE ESTAS PONIENDO COMO UNA VACA","UNA MALDICION PENDE SOBRE TU CA-BEZA","PODRIAS PERDER TUS FUERZAS"
1 "Y ESO ES UNA PROFESION ? ","NO ME HAGAS REIR! TU ??? ","ESTABA CLARO ! ","NO TIENES NADA MEJOR ? ","PUES ESTAS ARREGLADO !"
1 "TRABAJAR UN POCO MAS","COMER MENOS","CHICHAR MENOS AL PROJIMO","DIVERTIRTE MAS","SALIR MENOS POR AHI","ESTAR MAS TIEMPO EN CASA","TRABAJA MAS CON EL ORDENADOR"
1 "SI ESTO NO FUERA SUFICIENTE,SIEMPRE PODRIAS "
1 "ROBERTO","FRANCISCO","JUAN","JOSE","MARIA","ANA","ELEENA","ANTONIO","PEDRO","MANUEL","LUIS","JORGE","CARLOS"
1 "RETIRATE, YA ES HORA !"
1 "RESPUESTA = ";
1 "RECUERDA LO QUE ESTUDIAMOS ENLA LECCION DEDICADA A <INPUT>.",""
1 "PRINT SQR 2.3E-2+INT -2E4","TAMBIEN LAS DEMAS INSTRUCCIO-NES ACEPTAN LA NOTACION CIEN-TIFICA.",""
1 "PRINT 1E2+3E1","CON LA NOTACION EN COMA DECI-MAL ES POSIBLE REALIZAR CUAL-QUIER OPERACION, SIEMPRE QUESE ENCOLUMNEN CORRECTAMENTELAS CIFRAS.","EL RESULTADO ES 130",""
1 "PRINT 100E2*150E3","LA NOTACION CIENTIFICA OPERASIEMPRE CON UNA UNICA CIFRAENTERA; POR LO TANTO EL RESUL-TADO ES:1.5E9.",""
1 "OBSERVA QUE LAS RUTINAS SE HANESCRITO PARA LAS DIRECCIONES<100> Y <200>, DE FORMA QUE SEFACILITE EL DIRECCIONAMIENTO.",""
1 "NO TE DA VERGUENZA COMER DE ESA FORMA ? "
1 "MIRANDOTE BIEN .... ESTAS HECHOUNA PENA !","TENDRIAS QUE INTENTAR UNA DIETAA BASE DE ACEITE DE RICINO Y AJO","YO QUE TU ME PREOCUPARIA !","POR FAVOR COMPRUEBA QUE SIGUESVIVO"
1 "MI QUERIDO ";N$;","
1 "MI QUERIDA ";N$;","
1 "INTENTA DORMIR POR LAS NOCHES !","PERO SI NO HACES NADA DE DIA !","ERES UN DESASTRE !","ESFUMATE !"
1 "IF ERR THEN RETURN","CONDICIONANDO A <RETURN>, PAR-TES DE RUTINAS SE EJECUTANUNICAMENTE PARA DETERMINADOSACONTECIMIENTOS.",""
1 "GOSUB 3000*S+1000","ESTE ES UN SISTEMA MUY COMUNPARA DIRECCIONAR DIRECTAMENTERUTINAS MEDIANTE UNA VARIABLENUMERICA.",""
1 "GOSUB 1000+(100 AND ER)","SI <ER> CONTIENE <0>, SERALLAMADA LA RUTINA DE LA LINEA<1000>, SI NO LA LINEA <1100>.",""
1 "Escribiremos las rutinas nece-sarias para las direcciones100 y 200, de forma que laspodamos direccionar facilmentea traves de <S>.",""
1 "Es necesario indicar:
1 "El resultado final consiste enla impresion (elegida por elMENU) del area o del perimetrode un cuadrado.","",""
1 "ESTAS MAL DE LOS NERVIOS","CADA DIA ESTAS PEOR","TE ESTAS PONIENDO COMO UNA FOCA","TU PAREJA TE OCULTA ALGO","TIENES MUCHOS GRANOS"
1 "ESTA VEZ, "+N$+"
1 "ESTA VEZ EL TEMA ES BASTANTEDIFICIL; SIN EMBARGO SIGUIENDOCON ATENCION LOS EJEMPLOS NOTENDRAS NINGUNA DIFICULTAD PA-RA RESPONDER A LAS PREGUNTAS.",""
1 "ERES INCORREGIBLE !","ACUESTATE CON UN BOCADILLO","INTENTA DORMIR EN LA NEVERA !"
1 "EL PROGRAMA QUE VAMOS A DESA-RROLLAR ES ELEMENTAL, PEROSIRVE PARA DEMOSTRAR EL USOCONCRETO DE GOSUB/RETURN APLI-CADO A LA GESTION DE UN MENU.",""
1 "DIME TU NOMBRE ":
1 "DEBERIAS EN PRIMER LUGAR "
1 "DE QUE TE QUEJAS?","ENTONCES QUE QUIERES DE MI ?","ERES UNA EXCEPCION !","TRABAJA UN POCO MAS !"
1 "CASI OLVIDABA DECIRTE QUE"
1 "AYUNAR DOS DIAS","CORRER 300 KM","NO VER LA TV","ACOSTARTE A LA 5 DE LA TARDE","HACER UNA DIETA SEVERA"
1 "AHORA, "+N$+"
1 "ACUERDATE DE HACER TESTAMENTO","CORRES EL RIESGO DE NO VOLVERTEA DESPERTAR !","INTENTA ABRIR UN POCO EL ATAUD !","NO VEAS PELICULAS DE MIEDO"
1 "A MI MODESTO ENTENDER, "
1 "99999996":
1 "8";"EXP. M A N T I S A"
1 "8";"- - - SIGNO BAJO ALTO - - -";
1 "8",N;" \]"
1 "7.328374",u+u,
1 "7";" ESTOY CARGANDO VIDEOTEST":
1 "7",N;" ~|";
1 "6";"SIGNO"
1 "6";"PULSA";
1 "6";" 50":
1 "5";"E+";a-j;:
1 "5";"E";-a+j;:
1 "5";"100 IF A=B THEN LET....",,,"110 LET C=3",,,,"120 RETURN",,,,
1 "5";" ";
1 "5";" ":
1 "5";" ";
1 "5";" ":
1 "4";"STACK":
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "4";" ";
1 "3";b;"E+";A;:
1 "3";b;"E";-A;:
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "3";" ";
1 "2E-1","ESCRIBE EL NUMERO <0.2>","USANDO LA NOTACION EN","COMA FLOTANTE",""
1 "24";" - - "(i):
1 "23617",u:
1 "23617",U:
1 "23295+I",
1 "23";" ";
1 "23","11","10"
1 "2";" STACK ";
1 "2";" - - "
1 "1=AREA"'"2=PER.":
1 "1500","A QUE CORRESPONDE 1.5E3 ?",""
1 "15";"= ";"0"
1 "14";" = ";
1 "13";" NIV. NIV."
1 "13",U;"..y para E negativo...":
1 "127-XL/2",
1 "11",Z;"50":
1 "11",Z;" "
1 "10-A/2",U;
1 "10";"VIDEOBASIC":
1 "10";"OTRA VEZ !":
1 "10";"ERROR !";
1 "10","14","20","7"
1 "1","10","100","1.000","10.000","100.000"
1 "04=IMPRIME ","04> AREA ","#820","2=100
1 "047 LLAMA ","048 RUTINA ","#823","2830
1 ","VUELVE SI NO ESTA PRESENTE","LA CONDICION <ER>",""
1 ","*1","1A
1 "*1 ","% "
1 " HOY EL ORDENADOR TE HARA UN RE- CONOCIMIENTO .... MEDICO !"
1 " ESTAS LISTO PARA CONTESTAR ? "
1 " PARA LA GRABADORA "
1 " VIDEOHARDWARE "
1 " PULSA UNA TECLA "
1 " AREA Y PERIMETRO "," DE UN CUADRADO"
1 " "
1 " ":
1 VIA INDIPENDENZA 88
1 Tel.031-240.959
1 SOFTIDEA - (Como)
1 INTRODUCCION";
1 EJERCICIOS";
1 EJERCICIO"
1 COPYRIGHT 1985
1 CONTINUAR":
1 CARGAR LA";
1 CARGAR EL VIDEOJUEGO";
1 AL BASIC ":
1 ** ** ** ***********************
1 ** ** ** **
1 * * * ***********************
1 D A T A
1 Pon en marcha la grabadora
1 C O M O
1 **
1 ":
1 *********************** ** ** **
1 ***********************
1 *********************** * * *
1
1
1
1